|
|  House on the Hill
|  Written by Ph.Donsback
|
|
SCRIPT_TYPE 1
|
BEGIN "House on the Hill"

  FLAGS  ClickFly AnimateFly AutoFly
  PACKS   2
  WIDTH   5 * CW + 2 * 5 * COW + 4 * 5 * COW
  HEIGHT  8 * CH
  ZeroToWin 104 - CARDSIN$2

| Foundations

  FOUNDATION
    X 0 * CW + 15 * COW + 4 * CW / 2 - 4 * CW
    First 1,1,h
    JoinOffset 1
    Y 0
    ID 2
  END
  FOUNDATION
    X 1 * CW + 15 * COW + 4 * CW / 2 - 4 * CW
    First 1,1,c
    JoinOffset 1
    Y 0
    ID 2
  END
  FOUNDATION
    X 2 * CW + 15 * COW + 4 * CW / 2 - 4 * CW
    First 1,1,d
    JoinOffset 1
    Y 0
    ID 2
  END
  FOUNDATION
    X 3 * CW + 15 * COW + 4 * CW / 2 - 4 * CW
    First 1,1,s
    JoinOffset 1
    Y 0
    ID 2
  END

  FOUNDATION
    X 4 * CW + 15 * COW + 6 * CW / 2 - 4 * CW
    First 13,13,h
    JoinOffset -1
    Y 0
    ID 2
  END
  FOUNDATION
    X 5 * CW + 15 * COW + 6 * CW / 2 - 4 * CW
    First 13,13,c
    JoinOffset -1
    Y 0
    ID 2
  END
  FOUNDATION
    X 6 * CW + 15 * COW + 6 * CW / 2 - 4 * CW
    First 13,13,d
    JoinOffset -1
    Y 0
    ID 2
  END
  FOUNDATION
    X 7 * CW + 15 * COW + 6 * CW / 2 - 4 * CW
    First 13,13,s
    JoinOffset -1
    Y 0
    ID 2
  END

| Fans

  FOR row = 1 TO 7
    FOR column = 0 TO 4
      STACK
        X column * CW + column * 2 * COW + column * 4 * COW
        Y row * CH
        FIRST 0
        DEAL 3, 1
        DRAGUPTO 1
        JoinOffset 1, -1
        FLAGS ClickFly JoinSS__ Paintright
        ID 1 
      END
    END
  END

END
